package Error::Hierarchy::Internal::DBI::DBH;

# $Id: DBH.pm 10101 2005-08-09 16:13:58Z gr $

use warnings;
use strict;
use base 'Error::Hierarchy::Internal::DBI::H';


our $VERSION = '0.05';


# DBI exceptions store extra values, but don't use them in the message string.
# They are marked as properties, however, so generic exception handling code
# can introspect them.

__PACKAGE__->mk_accessors(qw(
    auto_commit db_name statement row_cache_size
));

use constant PROPERTIES => ( qw(auto_commit db_name statement row_cache_size) );

1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

Error::Hierarchy::Internal::DBI::DBH - DBI-related exception

=head1 SYNOPSIS

None.

=head1 DESCRIPTION

This class is part of the DBI-related exceptions. It is internal and you're
not supposed to use it.

=head1 PROPERTIES

This exception class inherits all properties of
L<Error::Hierarchy::Internal::DBI::H>.

It has the following additional properties.

=over 4

=item auto_commit

=item db_name

=item statement

=item row_cache_size

=back

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% p.write_inheritance %}

{% PROCESS standard_pod %}

=cut

